home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / party / sound_31.lha / HDInstall < prev    next >
Text File  |  1995-10-22  |  3KB  |  146 lines
  1. ;$VER: Sound #3 The Trance Issue HD Installation script V1.30 (21.09.95)
  2. ;
  3. ; This script is a hand rework of an original script created with
  4. ; Script Maker V2.0, but changed for own needs...
  5. ;
  6.  
  7. (complete 0)
  8. (set @default-dest "Work:")
  9.  
  10. ; Set up various Texts
  11.  
  12. (
  13.     set #Intro-Txt
  14.     (
  15.         cat    "\n\nWelcome to \n"
  16.                 "Sound #3 The Trance Issue\n"
  17.                 "Hard Disk Install Script\n\n\n\n"
  18.     )
  19. )
  20.  
  21. (
  22.     set #Warning-Txt
  23.     (
  24.         cat    "Warning !\n\n\n"
  25.                 "Sound #3 The Trance Issue requires 1.5 MB free on your disk \n\n"
  26.                 "Think of it before destroying your disk...\n\n"
  27.     )
  28. )
  29.  
  30. (
  31.     set #Path-Txt
  32.     (
  33.         cat    "Select the target directory. A directory Sound3 will "
  34.                 "be created there."
  35.     )
  36. )
  37.  
  38. (
  39.     set #Path-Help
  40.     (
  41.         cat    "\nThis section lets you choose the "
  42.                 "target directory to install Sound #3 The Trance Issue. \n\n"
  43.                 "A directory Sound3 will be created there.\n\n"
  44.                 "Default is Work:\n\n\n"
  45.                 @askdir-help
  46.     )
  47. )
  48.  
  49.  
  50. ; The actual Main routine of the Script
  51.  
  52. (
  53.     message #Intro-Txt
  54. )
  55.  
  56. (
  57.     message #Warning-Txt
  58. )
  59.  
  60. ; Select Installation destination
  61. (
  62.     set target 
  63.     (
  64.         askdir
  65.         (
  66.             prompt #Path-Txt
  67.         )
  68.         (
  69.             help #Path-Help
  70.         )
  71.         (
  72.             default @default-dest
  73.         )
  74.         (
  75.             newpath
  76.         )
  77.     )
  78. )
  79.  
  80. (
  81.     set @default-dest target
  82. )
  83.  
  84. ; Create some needed Sub dirs
  85. (
  86.     makedir
  87.     (
  88.         tackon target "Fonts"
  89.     )
  90. )
  91. (makedir(tackon target "DOC"))
  92. (makedir(tackon target "GFX"))
  93. (makedir(tackon target "MSX"))
  94.  
  95. (
  96.     complete 5
  97. )
  98.  
  99. ; Do file copying.. Only one of the copyings has been 'folded out'
  100. ;  as they all are similar
  101. (
  102.     copyfiles
  103.     (
  104.         prompt "Copying to " #target
  105.     )
  106.     (
  107.         help @copy-files-help
  108.     )
  109.     (
  110.         source "Sound3_1:"
  111.     )
  112.     (
  113.         dest
  114.         (
  115.             tackon target "Sound3"
  116.         )
  117.     )
  118.     (
  119.         pattern "Sound#?"
  120.     )
  121. )
  122. (complete 12)
  123. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_1:")
  124. (dest (tackon target "Sound3")) (pattern "DO#?"))
  125.  
  126. (complete 25)
  127. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_1:")
  128. (dest (tackon target "Sound3")) (pattern "GF#?"))
  129.  
  130. (complete 37)
  131. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_1:")
  132. (dest (tackon target "Sound3")) (pattern "MS#?"))
  133.  
  134. (complete 50)
  135. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_2:")
  136. (dest (tackon target "Sound3")) (pattern "GF#?"))
  137.  
  138. (complete 75)
  139. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_2:")
  140. (dest (tackon target "Sound3")) (pattern "MS#?"))
  141.  
  142. (complete 95)
  143. (copyfiles (prompt "Copying to " #target) (help @copy-files-help) (source "Sound3_2:")
  144. (dest (tackon target "Sound3")) (pattern "DISK2#?"))
  145. (complete 100)
  146.